home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / MRIN.LSP < prev    next >
Text File  |  1992-05-11  |  602b  |  22 lines
  1. ;THIS FILE WILL MIRROR OBJECTS BY THEIR INSERTION POINTS
  2. (defun c:mrin ()
  3.   (command)
  4.   (setq D1 (getdist  "\nGIVE A REAL DISTANCE: "))
  5.   (command)
  6.   (setq A1 (getangle  "\nWHAT DIRECTION? "))
  7.   (command)
  8.   (initget 1 "Yes No")
  9.   (setq Y/N (getkword "\nDELETE OLD OBJECT? "))
  10.   (command)
  11.   (prompt "\nSelect objects for the loop, ")
  12.   (setq ssloop (ssget))
  13.   (setq i 0)
  14.   (while (setq obj (ssname ssloop (- (setq i (1+ i)) 1)))
  15.     (setq inspt (cdr (assoc '10 (entget obj))))
  16.   (command)
  17.   (setq P2 (polar INSPT A1 D1))
  18.     (command "MIRROR" OBJ "" INSPT P2 Y/N)
  19.   ) 
  20.   (prin1)
  21. )
  22.